home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / 1.2 / scripts / sel-to-anim-img.scm.z / sel-to-anim-img.scm
Text File  |  2002-07-08  |  5KB  |  122 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; Selection to AnimationImage
  5. ; This script requires plug-in-gap-layers-run-animfilter (that is part of
  6. ; the gap Plugin-collection, available in the plugin registry)
  7. ;
  8. ; - 26.5.1999 hof: adapted for GIMP 1.1 Plug-in Interfaces
  9. ; - Takes the Current selection and saves it n-times (as multiple layers) in one seperate image.
  10. ;    (base functions taken from Selection to Image ((c) by Adrian Likins adrian@gimp.org)
  11. ; - added number of copies and
  12. ; - optional { BG-FILL | TRANS-FILL }
  13. ; - if there was no selection at begin the selection is cleared at end 
  14. ; - optional call of plug-in-gap-layers-run-animfilter
  15. ;   (to create animation effects by applying any available PDB filter foreach copy
  16. ;    (==layer) of the generated image
  17. ;    with constant or varying values)
  18. ; - if we just copied some layers set the generated brush-image clean at end
  19. ;
  20. ; This program is free software; you can redistribute it and/or modify
  21. ; it under the terms of the GNU General Public License as published by
  22. ; the Free Software Foundation; either version 2 of the License, or
  23. ; (at your option) any later version.
  24. ; 
  25. ; This program is distributed in the hope that it will be useful,
  26. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  27. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28. ; GNU General Public License for more details.
  29. ; 
  30. ; You should have received a copy of the GNU General Public License
  31. ; along with this program; if not, write to the Free Software
  32. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  33.  
  34.  
  35. (define (script-fu-selection-to-anim-image image drawable copies bgfill filter-all)
  36.   (let* (
  37.          (idx 0)
  38.      (draw-type (car (gimp-drawable-type-with-alpha drawable)))
  39.      (image-type (car (gimp-image-base-type image)))
  40.      (old-bg (car (gimp-palette-get-background))))
  41.  
  42.     (set! selection-bounds (gimp-selection-bounds image))
  43.     (set! select-offset-x (cadr selection-bounds))
  44.     (set! select-offset-y (caddr selection-bounds))
  45.     (set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
  46.     (set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y)) 
  47.  
  48.     (gimp-image-undo-disable image)
  49.  
  50.     (if (= (car (gimp-selection-is-empty image)) TRUE)
  51.     (begin
  52.           ; if the layer has no alpha select all
  53.           (if (= (car (gimp-drawable-has-alpha drawable)) FALSE)
  54.              (begin
  55.                 (gimp-selection-all image)
  56.              )
  57.              (begin
  58.                 (gimp-selection-layer-alpha drawable)
  59.              )
  60.           )
  61.       (set! active-selection (car (gimp-selection-save image)))
  62.       (set! from-selection FALSE)
  63.     )
  64.     (begin 
  65.       (set! active-selection (car (gimp-selection-save image)))
  66.       (set! from-selection TRUE)
  67.     )
  68.     )
  69.  
  70.     (gimp-edit-copy drawable)
  71.  
  72.     (set! brush-image (car (gimp-image-new selection-width selection-height image-type)))
  73.  
  74.     (while (< idx copies)
  75.        (set! draw-name (string-append "frame_0" (number->string idx)))
  76.        (set! brush-draw (car (gimp-layer-new brush-image selection-width selection-height draw-type draw-name 100 NORMAL)))
  77.        (gimp-image-add-layer brush-image brush-draw 0)
  78.        (if (= bgfill TRUE)
  79.            (gimp-drawable-fill brush-draw BG-IMAGE-FILL)
  80.            (gimp-drawable-fill brush-draw TRANS-IMAGE-FILL)
  81.        )
  82.        (let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
  83.          (gimp-floating-sel-anchor floating-sel)
  84.        )
  85.        (set! idx (+ idx 1))
  86.     )
  87.  
  88.     (if (= from-selection FALSE)
  89.         (gimp-selection-none image)
  90.     )
  91.  
  92.     (gimp-palette-set-background old-bg)
  93.     (gimp-image-undo-enable image)
  94.     (gimp-image-set-active-layer image drawable)
  95.     (gimp-image-clean-all brush-image)
  96.     (gimp-display-new brush-image)
  97.     (gimp-displays-flush))
  98.     (if (= filter-all TRUE)
  99.         ; INTERACTIVE animated call of any other plugin
  100.         ; (drawable and plugin name are dummy parameters
  101.         ; the plug-in to run is selcted by the built in PDB-browserdialog
  102.         ; of plug-in-gap-layers-run-animfilter)
  103.         (plug-in-gap-layers-run-animfilter 0 brush-image brush-draw "plug-in-bend")
  104.     )
  105. )
  106.  
  107. (script-fu-register "script-fu-selection-to-anim-image"
  108.             _"<Image>/Script-Fu/Animators/Selection to AnimImage..."
  109.             "Create a multilayer image from current selection and apply any PDB Filter to all layer-copies"
  110.             "Wolfgang Hofer <hof@gimp.org>"
  111.             "Wolfgang Hofer"
  112.             "2000/11/30"
  113.             "RGB RGBA GRAY GRAYA"
  114.             SF-IMAGE "Image" 0
  115.             SF-DRAWABLE "Drawable" 0
  116.                     SF-ADJUSTMENT _"Number of Copies"           '(10 1 1024 1 10 0 1)
  117.                     SF-TOGGLE     _"Fill with BG Color"         TRUE
  118.                     SF-TOGGLE     _"Anim-Filter for all Copies" TRUE)
  119.  
  120.  
  121.  
  122.